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by Kerry Shetline 
translation by Alan J. Zett 


STOMP is a utility to help track down typing errors in programs from Soft- 
Side Selections. It replaces SWAT beginning with Issue 45. 


Note: Please read all the instructions for STOMP before beginning. 


Why STOMP? 

The purpose of STOMP (Stop Typos On My Programs) is to aid the reader 
who types BASIC programs from a listing in SoftSide or SoftSide Selections. 
It is SoftSide ’s new official debugging utility. Until now, this function was filled 
by SWAT which readers hailed as a great aid in tracking down the inevitable 
errors that occur when you type several pages of BASIC code. The concise 
SWAT table narrows the search for errors to no more than twelve lines of 
code. For complex programs, you can reduce this number at will. 

Nonetheless, SWAT has drawbacks and deficiencies. For one thing, to get a 
matching SWA T table, readers must type every line of the program exactly as 
it appears in the magazine. Even REM statements, which BASIC ignores, have 
to be replicated precisely. Also, SWAT can’t detect simple transpositions. This 
means that the numbers 32767 and 36277 are identical to SWAT. If these 
numbers are part of a DATA statement for a machine language routine, the 
computer may hang up, or important data may vanish. Furthermore, because 
SWAT is written entirely in BASIC, it is quite slow. In sum, SWAT, although 
a big help, leaves much room for improvement. 

STOMP corrects SWAT’s deficiencies. It is faster, easier to use, and more 
reliable than SWAT. In addition, STOMP ignores REM statements and in- 
significant spaces. If you type BASIC programs from SoftSide Selections, 
STOMP will save you many hours. 

You may omit any REM statements that appear in our programs. If you do 
so, be sure to remove any colon (:) immediately preceding the word REM. In 
addition, feel free to add REM statements (within the constraints of memory) 
without changing the STOMP tables. 

The tables STOMP generates are identical in appearance to SWAT tables, 
so SWAT veterans will have no trouble interpreting STOMP tables. Type 
STOMP in now, and start using it right away! 


Starting Up With STOMP 

STOMP is a hybrid of machine language and BASIC. The machine 
language portion of STOMP occupies a string in the BASIC program. To 
create STOMP, type the listing for the STOMP Generator below. Save this 
program, check it with the procedure below, and run it. 

v _ J 




Checking STOMP Generator And Saving STOMP 

The first thing the program asks you is whether to save STOMP to disk or 
cassette. To test the program, however, press “E” to run the program without 
actually saving STOMP (the material that would go to the magnetic media 
goes instead to the screen). If everything is proper, the program lines that con- 
tain the machine language appear on the screen, and are entered into the pro- 
gram. Then, the message “Generating STOMP...” is displayed, and the 
STOMP program appears. 

If you see the message, “Error in DATA lines 100-140...,” re-load the 
Generator program, and carefully check those lines for errors. 

Now, in lines 32190 and 32230, change the number 125 to 128. List these 
lines, then use your cursor movement keys to move the cursor over the number 
5 in each line, type over it with the “8” key, and press Return. 

Next, type GOTO 32000. This creates a STOMP table for the STOMP 
Generator. Compare this table to the published one. If they match, then re- 
load the STOMP Generator, and run it. This time, select “D” or “C” to save 
the STOMP program to disk or cassette. 

If you choose to save STOMP on cassette, the Atari buzzes twice. This 
signals you to prepare a cassette and press the Return key. If you choose disk, 
the STOMP Generator automatically saves STOMP under the file name 
“STOMP” on drive 1. 

Using STOMP 

First, type and save the program you are going to check. Then follow these 
simple steps: 

1 . Place the disk or cassette on which you saved STOMP in the disk drive or 
tape recorder. 

2. Add STOMP to your program with the ENTER command. 

Disk: ENTER “D:STOMP” 

Tape: ENTER “C:” 

3. Press the Return key once for disk, or twice for tape. 

4. Type GOTO 32000 

5. Press the Return key. 

6. When STOMP asks you for the name of the program, press Return, or type 
an identifying name. 

7. If the published STOMP table lists modified “parameters,” type them in 
response to the next prompt, line count first, then byte count, separated by a 
comma. For example, if the table says: “Modified Parameters: Line count = 
3, Byte count = 200,” you would type “3,200” and press Return in response 
to this prompt. If no special parameters are listed, then simply press Return. 

If you have a printer turned on and connected to your Atari, STOMP 
automatically sends its output there. With or without a printer, the STOMP 
table appears on the screen. Compare the table you get with the one we publish 
along with the program you are checking. If they match, you may go ahead 
and enjoy the program. If not, see the section below. 

What To Do If The STOMP Tables Don’t Match 

• First examine the listed line numbers in the first columns of the tables. If 
they don’t match, it probably means you have inserted, omitted or changed at 
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least one line number. A large omission from a line can also throw off the first 
column. An extra or missing line affects all entries in the first column from 
that point on. Search the lines indicated by the first erroneous entry for the 
bad line, and correct it. Then try running STOMP again to see if the entries 
match. 

• If, after you have verified all the line numbers, there are still discrepancies 
in the second or third column, you need to make a more detailed search. 

(a) If the length for a range of lines is too big, then it is likely that you typed 
too many spaces or other characters in a PRINT or DATA statement. Check 
all variable names. 

(b) If the length entry is too small, check for omissions. Did you leave out 
part of a line? Did you miss a character in a PRINT or DATA statement? 

(c) If the length is correct but the STOMP code is wrong, check the ap- 
propriate lines for transposed or mistyped characters. 

Remember that STOMP ignores REM statements and spaces that aren’t 
significant. Anything within quotation marks is vital, and you must type it 
precisely. The same goes for DATA statements, except for spaces between the 
word DATA and the first item, which are not important. 


What’s All This About Parameters? 


Parameters are simple to understand. Normally, STOMP starts a new line in 
its table when it has checked twelve lines or 500 bytes of memory, whichever 
comes first. This means it will narrow your search for typographical errors to 
about a twelve-line range of the program. If a program is particularly com- 
plex, we make STOMP generate new table entries at smaller intervals, making 
your search for typos still easier. 
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If you don’t wish to typo this program, It Is 
avallablo on Issue #45 SoftSIdo DV and CV. 

Initialize and choose an output 
device for the STOMP program. 


Change the device letter in A$ into a 
device specification in F$: “C:” for 
cassette or “D:STOMP” for disk. For 
initial program checking, the device 
specification “E:STOMP” may also 
be generated. 

20 F$=A5:F5(2)=“: *: IF A5="C" THEN 40 
30 Ft(3)="ST0HP" 

Calculate the checksum of the 
machine language DATA, and 
display a message if the sum is in- 
correct. 

40 2=0: FOR 1=1 TO 152:READ Y:Z=Z+V:HEX 
T X: IF 2018401 THEN GRAPHICS 0:? “ERR 
OR IN DATA LINES 100-140. .. “:END 


10 GRAPHICS 0:CLR :DIM At(l),Fti7h? " 
OUTPUT TO DISK OR CASS INPUT At: IF 
At=““ OR At<”C" OR At>"E“ THEN 10 


c# 


y /fn»" 





Erase the screen, read the first half 
of the DATA, and create the first 
dummy line of BASIC. 

50 GRAPHICS 0: RESTORE :P0KE 766,1s? :? 

:? *32050 Si=*;CHRt(34);:F0R X=1 TO 7 
6: READ V:? CHRStY) ; :NEXT Is? 
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Read the second half of the DATA, 
and create the second dummy line 
of BASIC. Also set up the CONT for 
line 70. 

60 ? ’32060 S$!77)=“;CHR$!34); :F0R l-l 
7 TO 152: READ V:? CHR* <Y) ; : NEXT X:P0KE 
766,0:? :? ’CONT" 

Point the cursor to fall on the first 
dummy line, POKE the Atari into the 
continuous input mode, and break 
out of the program to enter the new 
lines of BASIC. The Atari will enter 
the two lines, reach the CONTinue 
statement, and execute the rest of 
the program, starting at line 80. 

70 POSITION 2, 0: POKE B42,13:ST0F 
Clear the continuous input mode, 
and generate STOMP by LISTing the 
STOMP lines of STOMP Generator 
to the device specified in F$. 

80 POKE 842, 12:6RAPHIC3 0:? "SENERATIN 
G STOMP. . . ":LIST F*, 32000, 32767:END 

Data for the machine language por- 
tion of STOMP to be contained in S$. 

100 DATA 104,240,2!, 104, 133,204, 104, 13 

3.203. 169.0. 133.205. 133. 206. 133. 207.14 

1.0. 6. 141.1.6.96.160.0. 162.0. 142.2.6 
110 DATA 200, 177, 203, 20B, 251, 200, 232,1 
89, 3,6,209, 203, 208,15,201, 45, 208, 243, 1 

73.0. 6. 133.212. 173.1.6. 133.213.96. 160 
120 DATA 0,177,203,208,14,173,2,6,74,1 
76,8,200,208,243,230,205,24, 144,225, 15 

2.72.173.2.6.208.21.162.0. 177.203.221 
130 DATA 3,6,208,12,201,45,208,4,104,2 
4, 144,227,200,232,208,237, 104,168, 177, 
203,201,2,208, 10,72,173,2,6,73,1,141 
140 DATA 2,6,104, 132,212,6,212,69,212, 

24. 109.0. 6. 141.0.6.144.3.238. 1.6.230.2 
06,208, 180,230,207,208, 176 

Set up page-6 pointers, and test 
whether a printer is ready and on- 
line. The variable P will be set to 0 if 
the printer is not ready, and 1 if it is. 

32000 POKE 1539, 26: POKE 1540,5G:P0KE 1 
54 1,37: POKE 1542,45:CLR : TRAP 32010:CL 
OSE IhOPEN 11,8,0, *P*:P=1 
32010 TRAP 33333:GRAPH1CS 0:P0S1TI0N 6 
,1:? “ ATARI STOMP BY ALAN J. ZETT ’:? : 
? :? :? “PROGRAM NAME “;:D1H A*(20> 

V 
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Print title, prompt for program 
name, dimension strings, input the 
program name and new STOMP 
parameters (if not default). 

32020 DIM S*(152),Z*(8):2*=* “: 

INPUT A4.-TRAP 32030:? :? “STOKP PARANE 
TERS INPUT NU,8:G0T0 32040 
32030 NU=12:B=500 

Set up two graphics 0 screens; one 
to display the STOMP table, and the 
other to hold each line of BASIC 
code as it is listed into screen 
memory. In this way, the lines can 
be scanned in ASCII by the machine 
code portion and remain invisible to 
the user. The ASCII method 
eliminates SWAT’s problem with the 
variable table, so listing programs 
to cassette or disk is now unnec- 
essary. 

32040 TRAP 33333: GRAPHICS 0:T=PEEK(106 
):L=T-4:S=L-4:PQKE 106 f L: GRAPHICS 0 

Lines 32050 and 32060 contain the 
machine language routine in the 
variable S$. These lines will be 
created by STOMP Generator. 

Find the memory location of the 
first line of BASIC and check 
whether a program name has been 
specified. 

32070 POSITION 2,23:NL=PEEK(136)+PEEKi 
137) 1256: IF Al=’“ THEN 32090 
Print the program name and 
modified parameters, if specified. 
32080 ? “ATARI STOMP TABLE FOR “;A$:? 
:IF P THEN ? SI; “ATARI STOMP TABLE FOR 
“;At:? #1 

32090 IF NU=1 2 AND B=500 THEN 32110 
32100 ? "PARAMETERS ARE: *;NU;“ AND 
B:? :IF P THEN ? SI; "PARAMETERS ARE: “ 
;NU;" AND ";B:? *1 

Print header information for STOMP 
tables 

32110 POKE 752,1:-? ’ LINES C 
ODE LEN":? " 

32120 IF P THEN ? #1;“ LINES 
CODE LEN":? »1;“ 


-STOMP- 
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Inltialize S$ to look at the second 
screen area, and reset important 
pointers between line ranges. Also 
reset the first-line pointer FL. 

32130 X=USR (ADR (S$) , L4256+104) :FL=- 1 

Calculate this-line (TL) and next-line 
(NL) pointers, the current line number 
(LN), and the more significant byte of 
the next line number (Q). 

32 1 40 TL=NL : NL=TL+PEEK ! TL+2 > : LN=PEEK ( T 
L ) +PEEK ! TL+ 1 ) 1256: 8=P£EK (NL+1) 

List one line of BASIC code to the 
alternate screen, and execute the 
STOMP machine language 
subroutine. Check whether the line 
just listed is a valid first line 
number for the range (REMs do not 
count as a valid line number; they 
are ignored). 

32150 POKE 106,1: POKE 82,0:P0KE 89, L:? 
CHR4I125);:L1ST LN:CS=USR!ADRSSt));IF 
PEEK ( 205) =1 AND FL=-1 THEN FL=LN 
Point back to the first screen and 
store the number of bytes in the last 
line STOMPed into the variable BC. 
32160 POKE 82, 2: POKE 89,S:P0KE 106, L:B 
C=PEEK i 206 I +PEEK 1207)1256 

Check whether the maximum 
number of lines in a line range has 
been counted by STOMP. (Line 
count = 12 for default parameters.) 

32170 IF PEEK (205)=NU THEN 32200 
Check whether the maximum 
number of bytes in a line range has 
been counted by STOMP. (Byte 
count = 500 for a default 
parameter.) 

32180 IF BC>=B THEN 32200 
If the more significant byte of the 
next line number is less than the 
start of the STOMP program, then 
continue listing codes in the table. 

32190 IF Q< 125 THEN 32140 
Calculate a STOMP code from the 
line range checksum and display 
one line of the STOMP table. 

32200 POSITION 2,23:CS=CS-INT<CS/676>» 
676 : C 1= I NT ( CS/26 ) : C2=CS-C U26+65 : ? 2$i 
1 , 6-LEN ! STRt (FL) ) ) ; FL ; * - *;LN; 

32210 ? Zt(l,9-LEN(STR$!LN)));CHRt(Cl+ 
65) ;CHR* (C2) ; It ( 1 , 7-LEN(STR$ (BC) ) ) ;BC: 

, IF P=0 THEN 32230 


32220 ? 41;2t !1, 6-LEN ISTRt(FL) ) ) ;FL; “ 

- LN; Z* I 1 , 9-LEN !STR$ (LN) ! ) ;CHR$ (Cl+6 
5) ; CHR$ !C2! ; It ( 1 , 7-LEN !STR$ I BC) ) ) ; BC 

Set the checksum and the quote 
flag to zero, and continue listing 
codes in the table if the last pro- 
gram line before STOMP hasn’t 
been processed yet. 

32230 POKE 205,0: POKE 206,0: POKE 207,0 
:IF 8<125 THEN 32130 
Reset important pointers and end 
the program. 

32240 POKE 106,T:POKE 89, L:? CHRJU25) 
: POKE 89 , S: P0SI TI0N 2,23:P0KE 752,0:? 

: END 

STOMP 

^imv TABLE 

For ATARI® STOMP GENERATOR 

(Modified Parameters: 

Line count = 3, byte count = 200) 

STOMP 

LINES CODE LENGTH 


10 - 30 ON 

40 - 60 PM 

70 - 100 PN 

110 - 120 UZ 

130 - 140 YB 

32000 - 32020 TH 

32030 - 32050 YT 

32060 - 32080 ML 

32090 - 32110 FL 

32320 - 32140 CH 

32150 - 32170 RP 

32180 - 32200 LC 

32210 - 32230 MH 

32240 - 32240 0C 


c> 
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DRAW 7 + 


S 


• S clears the GRAPHICS 7 + screen, resets the color values and returns the 
cursor to the center of the screen. The program will ask if you want to erase the 
screen. Type N or Y and press return. 

• C sends you to the Color Mode. 

• N sends you to the Name Mode. It lets you change the name of the current 
picture. Pressing N prints the current file name and a prompt, which asks if 
you want to change it. Type N or Y and press return. When typing the new 
name be sure to prefix it with “D:”. Note: Use an extension of .PIC for clarity. 

• E expands the area around the cursor from GRAPHICS 7+ to 
GRAPHICS 3 so you can do detailed work. See the Expand Mode instruc- 
tions. 

• H displays a menu of all the Draw 7+ commands (for all three modes). 

• L draws a flashing “cross hair” to help you locate the cursor (if you can’t 
find the flashing dot). To resume drawing, press any key. 




Expand Mode 

The Expand Mode is similar to the Draw Mode. It also features movement 
and drawing in eight directions and four colors. 

• D compresses the GRAPHICS 3 screen into the box on the GRAPHICS 
7 + screen and returns you to the Draw Mode. 


Color Mode 

In the Color Mode you may change the hues and intensities for colors 1 
through 3, as well as for the background. The changes are not permanent (i.e., 
they are not saved with the picture) so you can modify the colors without fear 
of “ruining” your picture. When you arrive in the Color Mode you are modi- 
fying color 1. Color changes are retained until you type either the command 
“S” or stop the program. A saved picture which had modified colors will have 
“standard” colors when you reload it from disk. 

• To change the cursor’s drawing color, enter a number from zero to three. 
See Draw commands. 

• SELECT increases the hue of the color you are modifying. For example, if 
you were working on color 1 (pink) and you hit SELECT twice, color 1 
becomes blue. Changing the hue has no effect on the intensity. 

• OPTION increases the intensity of the color you are modifying. For exam- 
ple, if you were working on color 1 and it had an intensity of 5, hitting OP- 
TION would change the intensity to 6. Note: You will have to press OPTION 
twice for it to affect the screen, because only even intensities are valid. 

• D returns you to the Draw Mode (modified hues and intensities are retained). 


Logical Operators 

One of the most useful but ignored BASIC operations is the logical com- 
parison. In Atari BASIC the statement “A> B” will return a one if A is 
greater than B, or a zero if A is smaller than B or they are equal. This technique 
can, if used correctly, replace a lengthy series of “IF.. .THEN” statements. 
As an example of this technique I will explain a line from the Draw 7+ pro- 
gram listing. Here is line 970: 

970 XP = XP + 1 :XB = XB + (XP = 4):XP = XP - 4*(XP = 4):XB = XB - 
(XB = 40):RETURN 
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The following IF... THEN statements replace line 970: 

XP=XP+1 

IF XP = 4 THEN XB = XB + 1 
IF XP = 4 THEN XP = 0 
IF XB = 40 THEN XB = 39 
RETURN 

Line 970 begins by incrementing XP. If XP = 4 then the expression (XP = 4) 
equals 1 and SB is incremented. If XP = 4 then 4*(XP = 4) equals 4 and XP is 
reduced to zero. IF XB = 40 then (XB = 40) equals 1 and XB is reduced to 39, 
otherwise (XB = 40) equals 0 and SB stays the same. Finally the line returns to 
the line which called it. 

One of this program’s most powerful features is the graphic expansion 
routine. It displays, in GRAPHICS 3, a portion of the GRAPHICS 7 + screen 
around the cursor. It sets up a GRAPHICS 3 screen below the GRAPHICS 
7+ screen and copies the screen memory data around the cursor to the 
GRAPHICS 3 screen. 

Having two co-resident screens is easier than it looks. Just lower the high 
memory pointer (106 or $6A) so the top of memory starts below the higher 
Display List and screen memory. After you push the pointer down, a normal 
BASIC GRAPHICS command (i.e. GRAPHICS 3) sets up the new screen and 
takes care of all the system pointers for you. To return to the first screen, 
restore the high memory pointer to its original value, and execute another 
GRAPHICS command with the clear screen option disabled (accomplished by 
adding 32 to the value specified in the GRAPHICS command). The only prob- 
lem with this technique is that the values in the color registers are reset to the 
default values; therefore, you must save and restore them after the 
GRAPHICS command is finished. Lines 1210 and 1220 do this. 

Because so much has been written about modifying Display Lists, I will only 
give a brief synopsis of the technique. I set the value of the variable DL with 
the Display List Pointer in RAM. This insures that the program will run on 
computers with different amounts of memory. Stepping through the Display 
List, I changed the mode line bytes from fifteen (GRAPHICS 8) to fourteen 
(GRAPHICS 7 + ). Finally, I changed the LMS bytes from a 79 (GRAPHICS 8 
w/LMS option) to a 78 (GRAPHICS 7 + w/LMS option). This Display List 
modification was simple because both GRAPHICS 7 + and GRAPHICS 8 
have 192 vertical mode lines and require the same amount of memory. 

Feel free to modify the program to your heart’s delight. If you renumber the 
program after making modifications, be sure to check the branches from line 
140 to lines 150-170 because these do not work with increments of ten. Exercise 
the same care with lines 730-760 because these also will not work with in- 
crements of ten. I will be glad to answer questions about this program — just 
write to me c/o SoftSide. 


Variables 


A$: Holds reply to yes and no 
questions. 

B: Memory location of 
GRAPHICS 7 + cursor in 
memory. 

C: Current drawing color (in Ex- 
pand and Draw Modes). 


C1-C4: Temporary storage of 
screen colors. 

CONSOL: Value of Atari console 
keys (START, SELECT, OP- 
TION, AND SYSTEM RESET). 


CORNER: Memory location of the 
upper left hand corner of the 
GRAPHICS 7 + cursor window. 
DRAW 7+ ' 
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DL: Location of Display List in 
memory. 

E: Offset from current cursor posi- 
tion to the end of the GRAPHICS 
7 + cursor window (used by the ex- 
pansion and locate routines). 

FN$: Filename used for disk I/O. 
KEY: Value of last key pressed. 

L: Offset from the current cursor 
position to the left side of the 
GRAPHICS 7 + cursor window 
(expansion routine). 

R: Offset from the current cursor 
position to the right side of the 
GRAPHICS 7 + cursor window 
(expansion routine). 

RAMTOP: Top of memory 
pointer. 

S$: Contains the stored screen data 
(locate routine). 
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SS 


SS 

SS 

Atari BASIC 

SS 

SS 
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Copyright © 1983 
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If you don’t wish to typo this program, it Is 
available on Issue #45 SoftSide DV and CV. 

Intialization. 

20 GRAPHICS 24: DIM FN* (17) ,A$ il ! ,St (5) 

: POKE 77,0: DL=PEEK (560) +256IPEEK (561 ) : 
GOSUB 1010 

Set up machine language routines 
(see also ‘Listings 1 and 2). 

30 FOR 1=1536 TO 1722;READ YsPOKE X, Ys 
NEXT X 

40 DATA 104, 104, 104 , 1 41 , 255, 6, 104,104, 
141,254,6, 104, 104, 141,253,6, 173,255,6, 
24, 106, 106, 106, 141,255 
50 DATA 6, 169,63, 172, 253,6, 240, 7,74,74 
,9, 192, 136, 208,249, 141,252,6, 173,254,6 
,45,252,6, 141 

60 DATA 254,6,173,255,6, 172,253,6,240, 
5, 74,74,136, 208, 251,141,252,6, 173, 254, 
6, 13,252,6, 133 

70 DATA 212,169,0,133,213,96 


10 
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SIZHI.SIZLO: Variables used for 
disk I/O. 

T: Offset from the current cursor 
position to the top of the 
GRAPHICS 7 + cursor window 
(expansion and locate routines). 
TVAHI.TVALO.TVSIZ: Variables 
for disk I/O. 

XB: Horizontal location of the 
byte containing the GRAPHICS 
7+ cursor. 

XLEN: Width of the GRAPHICS 
7 + cursor window. 

XP: Horizontal position of a 
selected pixel in XB. 

YB: Vertical location of the byte 
containing the GRAPHICS 7 + 
cursor. 

YLEN: Length of the GRAPHICS 
7 + cursor window. 


80 DATA 104, 104,133,91,104, 133,90,104, 
104, 141,255,6, 104, 104, 141,254,6, 104, 10 

4.141.253.6.160.0. 173 

90 DATA 253,6,208,7, 177,90, 145,88,24. 1 
44,4,177,88,145,90,200,204,255,6,208,2 
34, 165,90,24, 105 

100 DATA 40,133,90,165,91,105,0,133,91 
,165,88,24, 105, 10,133,88, 165,89, 105,0, 
133,89,206,254,6 

110 DATA 173,254,6,201,0,208, 196,96 
120 DATA 104,201 ,1,208, 10, 104,104,141, 

114.3.162.48.32.86.228. 133.213. 169.0. 1 
33,212,96,0 

More initialization. 

130 XB=19:Xp=0:YB=96:C=l:FNt= l 'D:PlCTUR 
E1,PIC M : POKE 764,255 
Process joystick movements. 

140 CLOSE I3:KEV=PEEK(764! :C0NS0L=PEEK 
(53279) :PQKE 77,0:TRAP 140:GQTO 140+2* 
STICK <0> 

150 60SU8 970: GOSUB 990: SOTO 240 
152 GOSUB 970: 60SUB lOOOsGOTO 240 
154 GOSUB 970: GOTO 240 
158 GOSUB 980: GOSUB 990:GQTQ 240 
160 GOSUB 980: GOSUB 1000: GOTO 240 
162 GOSUB 980: GOTO 240 
166 GOSUB 990: GOTO 240 
168 GOSUB lOOO'.GQTO 240 
170 GOTO 240 


DRAW 7 + 



Draw Mode commands. 

240 B=DL+40*YB+XB+282; IF STRIG<0)=0 TH 
EN X=USR (1536, C, PEEK (Bl.XP): POKE B. X:6 
OTO 140 

250 IF C0NSQK7 OR KEY<255 THEN 260 
252 X=PE£K(B! : Y=USR ( 1 536, AZ , X , XP> : POKE 
B, Y : AZ=AZ+1 ; IF AZ=4 THEN AZ=0 
254 FOR Z=1 TO 10: NEXT ZsPOKE B,X:GOTQ 
140 

260 IF KEY=31 THEN C=1:P0KE 764,255:60 
TO 140 

270 IF KEY=30 THEN C=2:P0KE 764,255:60 
TO 140 

280 IF KEY=26 THEN C=3:P0KE 764,255:60 
TO 140 

290 IF K£Y=50 THEN C=0:POKE 764,255:60 
TO 140 

300 IF C0NSQL=5 THEN X=li:GOTO 390 
310 IF C0NS0L=3 THEN X=7:BOTO 390 
320 IF KEY= 18 THEN X=708: Y=I NT (PEEK < X) 
Z16);Z=PEEK(X)-16tY:P0KE 764,255:60T0 
420 

330 IF KEY=35 THEN POKE 764,255:60T0 5 
50 

340 IF KEY=62 THEN POKE 764, 255: GOTO 6 
10 

350 IF KEY=42 THEN POKE 764, 255: GOTO 6 
50 

360 IF KEY=57 THEN POKE 764,255:60T0 1 
030 

370 IF KEY=0 THEN POKE 764,255:G0T0 11 

40 

3B0 POKE 764 , 255: GOTO 140 
Disk Save/Load routine. 

390 OPEN #3, X-3, 0, FNt:RAi1TQP=PEEK (106) 
*256: TVSIZ=RANTOP-DL 
400 SIZHI=INT(TVSIZ/256):SIZLQ=TVSIZ-S 
I ZHI *256: TVAHI=I NT (BL/256) ;TVALO=DL-TV 
AH I » 256 

410 POKE 884, TVALQ; POKE 885, TVAHI ;POKE 
8B8,SIZLO:POKE 889, SIZHI : Z=USR 1 1691 , X 
): CLOSE 13: GOTO 140 

Color Mode. 

420 CQNSOL=PEEK (53279) :KEY=PEEK 1764) 
430 IF KEY=31 THEN X=708:P0KE 764,255: 
GOTO 540 

440 IF KEY=30 THEN X=709:PDKE 764,255: 
GOTO 540 
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450 IF KEY=26 THEN X=710:P0KE 764,255: 

TH GOTO 540 

1:6 Ml IF KEY=50 THEN X=712:P0KE 764,255: 

GOTO 540 

470 IF CONSOL=5 THEN Y=Y+1 : Y=Y-16* ( Y=1 
OKE 6): GOTO 520 

480 IF C0NS0L=3 THEN Z=Z+! :Z=Z-16*(Z=1 
OTO 6): GOTO 520 

490 POKE X, 16IY+Z 

:G0 500 IF KEY=58 THEN POKE 764,255:GQT0 1 

40 

:60 510 GOTO 420 

520 IF PEEK 153279) 07 THEN 520 
: sq 530 GOTO 490 

540 Y=INT (PEEK (X) /16) : Z=PEEK (X) -16*Y:G 
iGO OTO 420 

Change Name. 

550 POKE 106, PEEK ( 106) -32: GOSUB 1210:6 

RAPHICS 0: POSI T I ON 7,7:PRINT "OLD NAME 
(X) = », FN$ 

70 560 POSITION 10, 10:PRINT "CHANGE IT (Y 

/N) * ; : INPUT AtilF AtO"Y" AND AtO"N" 

7 5 THEN 560 

570 IF At=“N" THEN POKE 106,PEEK(106)+ 

7 6 32: GRAPHICS 56:G0SUB 1220:60SUB 1010:8 

OTO 140 

7 6 580 POSITION 10, 13: PRINT "NAME (WITH D 

:) “iPOSITIDN 10, 14: INPUT FNt 
7 1 585 IF LEN!FN$)<3 THEN PRINT CHRt(253! 

;CHRt 12531 ; CHRt (253) : SOTO 580 
590 IF FN$ ( 1 ,2) < >"D: “ THEN PRINT CHRtl 
253) ;CHRt (253) : CHRt (253) :GOTQ 580 
600 POKE 106, PEEK (106 1+32: GRAPH ICS 56: 
GOSUB 1220: GOSUB 1010:GQTO 140 
>6) Erase screen command. 

610 POKE 106, PEEK (1061-32: GOSUB 1210:G 
7-5 RAPHICS 0:P0SITIQN 13,9:PRINT "ERASE S 

‘ TV CREEN“:POSITION 13,11 

620 PRINT "SURE <Y/N}";: INPUT At: IF At 
IKE <) »y„ flND M<> ,. N . THEN 620 

i,t 630 POKE 106,PEEK(106i+32:IF At="N" TH 

EN GRAPHICS 56:S0SUB 1220:GOSUB 1010:6 
OTO 140 

j 640 GRAPHICS 24.-G0SUB 1010: XP=0: XB=19: 

55: Y8=96:G0TQ 140 

Expand GRAPHICS 7+ window to 
jj. GRAPHICS 3 screen. 

650 POKE 106, PEEK! 106) -32:R=XB+4:L=XB- 
5: T=YB-12: E=YB+1 1 , 

DRAW 7 + - ' 
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660 IF R>39 THEN R=R-1 : B0T0 660 
670 IF L<0 THEN L=L+1:6QT0 670 
680 IF T<0 THEN T=T+1;BOTO 680 
690 IF EM91 THEN E=E-t:G0TQ 690 
700 XLEN=R-L + 1 : YLEN=E-T+1 : CORNER=PEEK i 
88) +256IPEEKI89) +40IT+L 
710 GOSUB 1210: 6RAPHICS 19:C0L0R C:D1= 
PEEK 188) : D2=PEEK (89! : D3=PEEK (90! : D4=PE 
EK!91> 

720 X=USRt 1617, CORNER, XLEN, YLEN, 0) : POK 
E 88, Dl: POKE 89,B2:P0KE 9O,D3:P0KE 91, 
D4: X=20: Y=12 

Process Joystick movements. 

730 TRAP 730 : KE Y=PEEK 1 764 ) : SOTO 730+21 
STICK <0) 

740 GOSUB 930: 60SUB 950: GOTO 830 
742 GOSUB 930: GOSUB 960:6OT0 330 
744 GOSUB 930: GOTO 830 
748 GOSUB 940: GOSUB 950: GOTO 830 
750 GOSUB 940: GOSUB 960:G0TO 830 
752 GOSUB 940: GOTO 830 
756 GOSUB 950: GOTO 830 
758 GOSUB 960: GOTO 830 
760 GOTO 830 

Expand Mode commands. 

830 IF STRIG(0)=0 THEN PLOT X,Y:FOR Z = 
1 TO 30: NEXT Z:GDTO 730 
840 IF K£Y=31 THEN C=1:P0KE 764,255:80 
TO 730 

850 IF KEY=30 THEN 0=2: POKE 764,255:60 
TO 730 

B60 IF KEY=26 THEN C=3:P0KE 764,255:60 
TO 730 

870 IF KEY=50 THEN C=0:P0KE 764,255:60 
TO 730 

880 IF KEY=58 THEN POKE 764, 255: GOTO 9 
00 

890 LOCATE X,Y,Z:COLOR AZ:PLOT X, Y:FOR 
N=1 TO 15: NEXT ti 

892 COLOR Z:PLOT X,Y:FOR tt=l TO 15:NEX 

T N:AZ=AZ+!:IF AZ=4 THEN AZ=0 

894 COLOR C: SOTO 730 

900 D 1 =PEEK i 88 ! : D2=PEEK i 89 ) : D3=PEEK ( 90 

) : B4=PEEK (91 ) : X=USR ! 1617, CORNER, XLEN, Y 

LEN,1> 

910 POKE 88, Dl : POKE 89,D2:P0KE 90,D3:P 
OKE 91, D4 

V 


12 

920 POKE 1 06, PEEK < 1 06) +32: POKE 764,255 
: GOSUB 12 10: GRAPHICS 56:G0SUB 1010:60T 
0 140 

Change cursor position (Expand 
Mode). 

930 X=X+«X<39): RETURN 
940 X=X- < X >0) : RETURN 
950 Y=Y+ < Y<23) : RETURN 
960 Y=Y-(Y)0):RETURN 

Change cursor position (Draw 
Mode). 

970 XP=XP+l:XB=XB+(XP=4):XP=XP-4t(XP=4 

) :XB=XB-(XB=40j ; RETURN 

980 XP=XP-1 : XB=XB- <XP=-1 ) : XB=XB+ <XB=-1 

):XP=XP+4t(XP=-l): RETURN 

990 YB=YB+1 : YB=YB- ( YB=192) : RETURN 

1000 YB=YB-1 : YB=YB+(YB=-1 I : RETURN 

Set up GRAPHICS 7 + . 

1010 FOR X=DL+6 TO DL+98:P0KE X,14:NEX 
T X:F0R X=DL+102 TO DL+198:P0KE X,14:N 
EXT X 

1020 POKE DL+3, 78: POKE DL+99,78:RETURN 

Help Menu. 

1030 POKE 106, PEEK 1 1 06) -32: GRAPHICS 0: 
POSITION 14,0:PRINT " DRAM NOPE ": PR I NT 
■BUTTON - PLOT POINT” 

1040 PRINT ‘STICK - MOVE CURSOR”: PR IN 
T "* (0-3) - CHANGE COLOR- : PRINT "SELEC 
T - SAVE” 

1050 PRINT "OPTION - LOAD":PRINT "S 
- CLEAR SCREEN": PR I NT "C - COL 
OR NODE* 

1060 PRINT "N - CHANGE NAME*:PRIN 
T "E - EXPAND SCREEN":PRINT ”H 
* HELP (THIS SCREEN)” 

1070 PRINT "L - LOCATE CURSDR":PQ 
SITION 13,13: PRINT ‘ COLOR HQDE *:PRINT 
"# (0-3)- CHANGE COLOR" 

1080 PRINT "SELECT - INCREASE HUE":PRI 
NT "OPTION - INCREASE INTENSITY *: PRINT 
"D : DRAW NODE" 

1090 POSITION 16, 19: PRINT " EXPAND ”:PRI 
NT "STICK - MOVE ";CHRt(25); "D 
- DRAW NODE" 

1100 PRINT "BUTTON - PLOT ”:CHR$(25) 
(0-3) - CHANGE COLOR"; 

1110 PRINT : POSIT ION 8,23:PRINT "HIT A 
NY KEY TO RETURN"; 

1120 IF PEEK (764)=255 THEN 1120 
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1130 POKE 106, PEEK ( 106) +32:P0KE 764,25 
5: 6RAPHICS 56:S0SUB lOlOsBQTO 140 

Locate command. 

1 140 T=B-B0:E=B+80: X=USR( 1536,C,0, XP) 
1150 IF KDL+2B2 THEN T=T+40:B0T0 1150 
1160 IF E>DL+7961 THEN E=E-40:60T0 116 
0 

1170 FOR Y=T TO E STEP 40:St( !V-T)/40+ 
!)=CHR4(P£EK(Y) ! : POKE Y, X:NEXT YsPOKE 
B,85tC 

1180 FOR Y=T TO E STEP 40: POKE Y,ftSC(S 
$((Y-T) 740+1) ):NEXT Y 
1190 IF PEEK (764) =255 THEN 1170 
1200 POKE 764, 255: BOTO 140 

Store color registers (in C1-C4). 

1210 C1=PEEK (70S) : C2=PEEK (709) : C3=PEEK 
(710) :C4=PEEK (712) :RETURN 

Return color values to color 
registers. 

1220 POKE 708,C1 : POKE 709,C2:P0KE 710, 
C3: POKE 7 1 2 , C4 : RETURN 
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STOMP 

TABLE 


1 It* 


For ATARI® DRAW 7 + 


(Modified Parameters: 

Line count = 5, byte count = 300) 


LINES 

STOMP 

CODE 

LENGTH 

LINES 

STOMP 

CODE 

LENGTH 

20 - 50 

TW 

301 

630 - 

670 

FS 

226 

60 - 100 

06 

389 

680 - 

720 

EZ 

273 

no - iso 

BV 

281 

730 - 

748 

LF 

146 

152 - 162 

IN 

124 

750 - 

760 

SP 

95 

166 - 250 

QV 

155 

830 - 

870 

JJ 

203 

252 - 280 

AY 

212 

880 - 

900 

LX 

236 

290 - 330 

QC 

202 

910 - 

950 

AD 

175 

340 - 380 

VB 

159 

960 - 

1000 

LT 

203 

390 - 430 

2L 

301 

1010 - 

1050 

ST 

357 

440 - 480 

BK 

208 

1060 - 

1090 

LP 

368 

490 - 530 

XN 

85 

1100 - 

1140 

XV 

241 

540 - 580 

ID 

330 

1150 - 

1190 

ZY 

218 

585 - 620 

IV 

334 

1200 - 

1220 

E6 

139 
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by Peter J. Favaro 


Plx Is a modular graphics design tool for an Atari 400/800/1200 with 
one disk drive and a joystick. 

While many graphics utilities allow you to draw your own pictures, Pix has 
“libraries” of pictures. Those who are not skilled artistically can create in- 
tricate designs by assembling pre-drawn elements into a larger picture. Each 
module is designed for a slightly different application, and three are included 
with this issue. The first, called The Landscaper, is an educational aid for 
children as young as three, who are just learning the initial consonant sounds. 
The Adventure Screen Maker creates graphics screens, which can be used in ar- 
cade games in general, but is best suited for adventures. The third module 
creates art deco title screens and designs for your software. 

All the Pix screens use the Atari character graphics modes with modified 
character fonts. I created the fonts using the DataSoft Graphic Generator™ 
utility (with their permission). It is one of the finest graphics utilities available 
for the Atari 400/800 systems ■ 

Sample Butterfly 

After the Pix title screen disappears you can choose among several menu op- 
tions. I have included samples to show what Pix can do, so select menu option 
four: Load a Picture. A program called READER.PIX loads, which reads pic- 
ture files and displays them on the screen. The first prompt is INPUT PIC- 
TURE NAME. The reply is D:BFLY.PIC, which loads a picture I drew with 
the Landscaper educational module. Do not include the usual quotes around 
any command within Pix or the program will crash. Typing only BFLY.PIC 
also crashes the program, so be careful. 

The next prompt, INPUT FONT, requests the font that you wish to use. In 
this case the proper response is D:EDGAME.FNT. After you have seen this 
picture get back to the title page by typing RUN “D:TITLE” or by typing 
RUN “D:READER. PIX”. When you have returned to the Reader Program 
type D:DECO.PIC to the first prompt and DiDECOl.FNT to the second. 
To see the adventure screen, get into the Reader Program and type D:AD- 
VENT.PIC to the first prompt and D:ADVENT.FNT to the second. All the 
Pix fonts end with the file name extension .FNT and all of the Pix sample pic- 
tures end with the file name extension .PIC. 

You can change the colors you see on your screen. Line 5 of the Reader Pro- 
gram contains the GRAPHICS and SETCOLOR statements. If you don’t know 
how to change the colors in the Atari text modes, this documentation provides a 
quick review at the end. 

— J 



Creating PlXures 

To make a picture using the Pix modules, run the title program and choose 
Title Page Maker. The program asks you to name the picture you will be work- 
ing on this session. Let’s call the picture SAMPLE. In reponse to the prompt, 
type D:SAMPLE and press RETURN. Pix loads the appropriate font into 
memory via a machine language subroutine. The screen goes blank for a few 
seconds and then a border surrounds the screen. 

Next a butterfly-shaped cursor appears at the upper left hand corner of the 
screen. Move it to the right with your joystick (plugged into port 1) and 
become familiar with its movements on the screen. Each move represents a 
space where you can place a letter or picture. Move the butterfly toward the 
middle of the screen and hit the trigger, locking the butterfly into position. 
Now go to the keyboard and type the letter Q, which appears on the screen in 
the butterfly’s position, leaving the butterfly free to move again. To erase the 
Q, position the butterfly over it and hit the space bar. 

When manipulating the butterfly, be careful when you hit the trigger. Press- 
ing it accidentally locks the butterfly on the screen. If this happens on top of a 
letter you do not want erased, simply retype the letter and the butterfly will 
move on. If the butterfly gets stuck on a blank space, just press the space bar 
to free it up. 

Now experiment with the keyboard. All the letters and numbers appear in an 
art deco style, and I have provided borders and flowers in that style to enhance 
your title page as well. The documentation contains a description of what is 
under each key. A copy of this information tacked near your computer helps 
make things easier for future sessions. 

• To start a new screen, type CTRL-C for clear. This erases the present pic- 
ture from memory. 

• To change the background shade, type CTRL-B. 

• To change the color of the upper case letters, type CTRL-L. 

Note: You must press the joystick trigger, locking the butterfly, before you 
type any of these commands. 

Other color changes result from the various Atari text graphics modes com- 
mands. If you hit the trigger and then the Caps Lowr key, the letters print in 
another color. The trigger, and the Atari logo key in upper case, provide 
another color. Finally, the trigger and Atari logo key, then the trigger and the 
lower case key, produce still another color. In all, Pix allows you to draw 
screens in five colors, four for the text and one for the background. 

Saving PlXures 

Now that you’ve created the title page for your (soon to be) award-winning 
program, you’ll want to save it. Make sure neither the lower case key nor the 
Atari logo key is toggled. Now press the trigger and CTRL-K. Your title page 
turns into normal Atari text and the computer appears to stall for about seven^ 
seconds. The disk drive light glows while the program saves your picture 
under the name you gave it at the start of the session. 

The extremely compact disk file for the picture uses only four or five 
sectors, and the technique is simple: The program turns the screen in-^4n3r 
to one long string and stores it in a text file. When you load theJ K p 
stored picture from disk, the Reader Program converts the string jCOy 
from the file and prints it as a picture on the screen. 
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To see your picture, load the Reader Program and, in 
response to the prompts, type your picture name (D:SAMPLE in 
this case) for the first prompt, and then type DrDECOl.FNT to the 
second prompt. 

Because Pix does not store any color information, it reverts to the 
default colors when you reload a picture. Now let’s find out how to change 
them. In the text modes under Atari BASIC, the SETCOLOR statement con- 
trols the colors of the characters printed. Color register zero controls the upper 
case letters, numbers and special characters. To change the color of the upper 
case letters to orange, the proper command is SETCOLOR 0,15,8. The fifteen 
refers to the color orange and the eight sets the luminance at a medium shade. 
(Refer to the appropriate Atari manuals for color combination charts.) The 
number two color register controls the upper-case inverse letters. The number 
one color register controls the normal lower case characters, and the number 
three color register controls the lower case, inverse colors. The number four 
color register sets the background color register. If you wish to change these 
values in either the Reader Program or the main program, change line five ac- 
cordingly, but do not change the GRAPHICS 17 command, only the SET- 
COLOR commands. 
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Kid PIX 

The Landscaper program is the first of several modules intended to teach 
young children the beginning consonant sounds. Parents of young children 
can spend many fun-filled hours teaching them computer skills and word 
sounds while allowing them to exercise their creativity. The Landscaper pro- 
gram is slightly different from the other two modules because what is on the 
keyboard and what is printed on the screen do not always correspond. Load 
the Landscaper program and define your picture name. As you and your child 
explore the keyboard, emphasize the letter sounds by saying, T is for tree, C is 
for cloud, and so on. See the reference chart for the full command set. Future 
Pix modules for young children will include animal mix-ups, farm scenes and 
more environment themes. 


PIX Adventurer 

One of the fringe benefits of Pix is its stinginess with memory. One Pix pic- 
ture takes up a mere 674 bytes in GRAPHICS 1 and a mere 424 bytes in 
GRAPHICS 2, so a disk can store about 150 PIXures. Suppose each one of 
those pictures were a different level of a maze or a different scene in an adven- 
ture. Using your Pix adventure maker, you’re not too far away from designing 
really complex adventure games. Briefly, you can use page-flipping techniques 
or read in one screen at a time from the disk, or both. In a future article, I will 
explain in greater detail how to accomplish it. Using the Pix adventure scene 
creator and the predefined characters for transportation, shelter, protection, 
food and survival, you can lay out an endless variety of fantasy lands and 
adventures. A complete list of characters is in the Quick Reference section. 
Note that CTRL-K is the command which stores these pictures. 

Future Pix modules will include a music processing system which reads 
music as if it were text, more graphics utilities and fonts, and several educa- 
tional activities. The latter are my favorite because they let children exercise 
their creativity without needing sophisticated fine motor skills or artistic ability. 

s. J 


PIX Quick Reference Chart 


The Landscaper Module 

C — Cloud 
D — Darker 
F — Flower 
G — Grass 

K — Keep, or save to disk 


L — Lighter 
M — Mushroom 
Q — Quit and start again 
S — Snail 
T — Tree 


Title Page Maker 

A — Z, 1 — 0 Same as what appears on the key except art deco style font 
! — Same character as border 
‘ — Quote marks 

# — Slanted lines 
$ — Little flower 

% — Border, one thick line, over one thin line (top border) 

& — Same as % only right border 
’ — Same as % only left border 

• — Same as °7o only bottom border 

All the keyboard symbols, such as parentheses, the hyphen, asterisk and 
equals symbol translate into their equivalents in the new font. However, the 
following generate special graphics characters: 

. — Upper left side of small flowery frame 
[ — Lower-left side of small flowery frame 
• — Upper-right side of small flowery frame 
] — Lower-right side of small flowery frame 
/ ? : ; — Four parts of a philodendron vine 
CTRL-B — Change background shade 
CTRL-L — Change upper case letter color 
CTRL K — Save to disk 
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Adventure Screen Generator 


A — Tree 


O — 

Jet 

B — Grass 


P — 

Dollar sign (money) 

C — Wave/Water 


Q, R- 

Shelter (space) 

D, E — Mountain 


S — 

Tie fighter 

F, G — Bridge 


T — 

Musical note 

H — Snow/Dirt/Magic Powder 

U — 

Race car left 

I — Boulder 


V — 

Race car right 

J — Horizontal road 


w — 

Moon rover 

K — F sign (food/fuel) 


X — 

Regular car left 

L — Old boat 


Y — 

Regular car right 

M — Skull and crossbones (danger) 

z — 

Rocket/missile 

N — Question mark (take a chance) 

» 

Flower 

. — Mushroom 

CTRL-B — change background shade 

[ — Lance/Sword 

CTRL-L — change upper-case color 

] — Shield 

CTRL-C — clear and start again 

/ — Laser/Gun 

CTRL-K — keep and save to disk 

? — Magic wand 




: — Key 
; — Potion 




Vi — Building 
* — Space hut 
± — Barrier /brick wall 
- — Mean creature 
= — Friendly computer 
+ — Castle 
Diamond 




! — Symbol for man 
# — Woman 




$ — Arrow pointing up 
% — Down pointing arrow 
& — Right arrow 
’ — Left arrow 
• — Sun shining 




( — Crater 
) — Vertical road 




< — Race car up 




Notes: 





After saving to disk, press Reset to clear Player/Missile garbage. Toggling 
the lower case or Atari logo key will change character color on the Title Page 
Maker and Adventure Screen Maker. 
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by Dale Thoms 

Sharkey Is an arcade-type game for an Atari® with 24K RAM (32K 
with disk), and a joystick. 

Looking at the world from the shark’s point of view, you move through a 
coral reef, eating rare tropical fish as you go. The white fish are worth twenty 
points each, but avoid the dark green fish which inhabit the center of the 
screen — they are poisonous. In the same area, you encounter spears, shot at 
random intervals. At the bottom of the screen, in the seaweed, you see eels, 
which can also spell your untimely demise. 

While watching out for all of those dangers, be careful not to bump into any 
coral. If you do, you will be sent back to the box in the center of the screen. 
Keep an eye on the clock. If the time expires, so do you. The number at the 
right of the score display is the number of sharks you have left in addition to 
the one in play. 


Program Operation 

PMBLANK is the machine language Vertical Blank Interrupt (VBI) routine 
which handles the movement of the shark, the spears and the eels. VBIs occur 
every sixtieth of a second, and instruct the 6502 microprocessor to stop the 
program it is executing and jump to the VBI processing routine located in the 
Operating System (OS). This routine increments the POKEY timers, interprets 
controller input, and copies data from shadow registers in memory to the 
hardware registers. If the OS routine has not been instructed to jump to a user 
supplied routine, the 6502 picks up where it left off in the main program, 
oblivious to the fact that a VBI occurred. If a user routine such as PMBLANK 
is used, the 6502 returns to the main program after the routine has finished ex- 
ecuting. Putting the Player graphics movement routines into the VBI sequence 
allows them to run simultaneously with the BASIC program. 

The first part of PMBLANK operates as follows: The BASIC program 
reads the joystick and POKEs the value into memory location 1789 ($06FD 
Hex). PMBLANK looks at this location and moves the shark in the indicated 
direction. Six of the eight possible joystick positions cause the shark image to 
change. Player 0 is modified with the appropriate bytes contained in the Player 
image area which is located at page PM + 5. The other two directions, up and 
down, use the existing shark image. PMBLANK checks location 1787 ($06FB) 
to see if the joystick button is pressed. If it is, then PMBLANK will move the 
shark once every VBI; otherwise the shark moves once every two VBIs. 

The second part of PMBLANK moves the eels and spears. The BASIC pro- 
gram POKEs the chosen number of the movements into location 1785 ($06F9) 
for spears or location 1781 (S06F5) for eels. When PMBLANK sees that a 
number has been POKEd into the eels’ location, it positions Player 1 at the left 

V 
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edge of the screen and moves it two positions to the right every VBI, and 
decrements location 1781. When this value reaches 0, Player 1 is removed from 
the screen. 

The routine for spear movement is similar with a few exceptions: Players 2 
and 3 are positioned inside the central box on the left and right edges. Spears 
do not traverse the entire screen; they stop at the opposite end of the central 
box. Spears are moved three positions every VBI. 


Variables 


A,B: Used for loops, etc. 

C: Dummy variable used for call- 
ing machine language routines. 
CMX: Maximum value of 
COUNT. 

COL1: Used for collision detec- 
tion. 

COUNT: Number of times the 
main loop has been run. 

DLIST: Address of the beginning 
of the Display List. 

E$: Contains a machine language 
routine to zero out PMG RAM. 
EMX: Number of times 
PMBLANK should move eels. 
FISH: Number of white fish the 
shark has eaten. 

HO: Horizonal position of the 
shark computed to a character 
position. 

MAX: Number of white fish at the 
start of each screen. 

PM: Starting address of PMG 


ss ss ss ss ss ss ss ss ss ss ss 
ss ss 

SS Atari BASIC SS 
SS 'Sharkey’ SS 
SS Author: Dale Thoes SS 
SS Copyright © 1783 SS 
SS SoftSide Publications, Inc SS 
SS SS 
SS SS SS SS SS SS SS SS SS SS SS 


If you don’t with to typo this program, It la 
avallabla on laauo #45 SoftSIda DV and CV. 

Initialization. 

10 60SUB 9000:60SUB 10000:60SUB 11000 
20 G0SUB 1 4000: B0SUB 20000 
30 6QSUB 21000: G0SUB 24000:60SUB 12000 
40 GQSUB 25000: GOSUB 23000 


RAM (4.25K or 17 pages below 
RAMTOP). 

SCORE: Player’s total score. 
SCREEN: Number of current 
screen (used as a difficulty level). 
SHARK: Number of remaining 
sharks excluding the one in play. 
SMX: Number of times 
PMBLANK should move the 
spears. 

START: Starting address of 
redefined character set in RAM. 
T0,T1: Used to keep track of the 
game timer. 

TIME: Amount of time at the start 
of each screen. 

VO: Vertical position of the shark 
computed to a character position. 
X,Y,Z: Used for reading in the 
character set data. 

XFR$: Contains a machine 
language routine to download the 
ROM character set. 


Main game routine. 

Clear collision register and POKE 
the joystick position Into a page six 
memory location so that PMBLANK 
can move the shark. 

100 POKE 53278,1: POKE 1789, STICK (0) 
Start movement of spears and eels 
by POKEIng a value into page six 
for PMBLANK. POKE 1781, EMX tells 
PMBLANK to move the eels (Player 
1) 83 times (all the way across the 
screen). POKE 1785, SMX moves the 
spears (Players 2 and 3) 31 steps 
across the central playfield. 

110 COUNT =CQUNT + 1 

120 IF COUNT 1 15 THEN POKE 1781, EHX 
130 IF C0UNT=60 THEN POKE 1785,SNX 
140 IF COUNT >CHX THEN C0UNT=0 


V. 
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Tell PMBLANK to double the shark 
speed if the trigger is pressed. 

150 POKE 1 787, STRI6 (0 ) 

Shark wrap around routine. 

160 IF PEEK (1790) >204 THEN POKE 1790,4 
5 

170 IF PEEK < 1790X44 THEN POKE 1790,20 
3 

Check for collision. 

180 IF PEEK (53252) >0 THEN 60SUB 5000 
190 IF PEEK (53260) >0 THEN G0SUB 6000 

Keep track of game time. 

200 T0=T0+l 

210 IF T0=15 THEN TO=0:T1=T!-1:POKE 65 
6,0:POKE 657,32:? * “:POKE'656,0:P0KE 
657 , 32s PRINT Tl; 

220 IF T 1=0 THEN GOSOB 6000 

Clear the “Attract Mode” counter 
and return to beginning. 

230 POKE 77, 0:60TO 100 

Collision Routines. 

If shark has collided with the 
playfleld graphics, GOSUB the ap- 
propriate routine. 

5000 C0L1=PEEK (53252) : IF C0L1>=8 THEN 
C0Ll=C0Ll-8 

5010 IF C0L1>=4 THEN COL 1=C0L 1-4: GOSUB 
5100 

5020 IF CDLi >=2 THEN COL 1 =C0L 1-2: GOSUB 
5300 

5030 IF C0L1=1 THEN GOSUB 5500 
5040 POKE 53278,1: RETURN 

Collision with white fish. 

Convert the shark’s position into a 
character position. Check that posi- 
tion for a white fish. If it’s there, 
erase it, and start the beep sound. 

5100 H0= (PEEK ( 1790)-48) /8: V0= (PEEK (179 
l)-32)/8 

5110 LOCATE HO, V0, A: IF AO202 THEN RET 
URN 

5120 SOUND 0,25, 10, 10: P0SI TIQN HO, V0:? 
# 6 |* 1 

Add 20 points to SCORE, check for 
end of play on current screen, and 
return If the screen Is not clear. 

5130 SCDRE=SC0RE+20: POKE 656,0: POKE 65 
7,6:? SCORE 

V 


5140 FISH=FISH+1:IF FISHKMAX THEN S0UN 
D 0,0,0, 0: RETURN 

Erase shark, play end of screen 
music, add bonus score for time re- 
maining on the clock, and GOSUB 
13000 to set up the next screen. 

5150 POKE 1789, 15:PQKE 178B,64:S0UND 0 

, 0 , 0,0 

5160 POKE 53278, 1 : SOUND 0,0, 0,0 
5170 S0SUB 5180:G0SUB 13000:RETURN 
5180 SOUND 1,121, 10, 12:G0SUB 5210:SQUN 
D 1,96, 10, 12:G0SUB 5210:S0UND 1,108,10 
, 12: B0SUB 5210 

5190 SOUND 1,91,10, 12:G0SUB 5210:S0UND 
1,96,10,12:60SUB 5210:SQUND 1,81,10,1 
2: GOSUB 5210 

5200 SOUND 1,60, 10, 12:FQR A=0 TO 80:NE 
XT A: SOUND 1 ,0, 0, 0: 60SUB 5210:GOTO 522 
0 

5210 FOR A=0 TO 60:NEXT A:S0UND 0,0,0, 
0: FOR A=0 TO 10:NEXT A: RETURN 
5220 SC0RE=SC0RE+10IT 1 : POKE 656,0:P0KE 
657,6:? SCORE: POKE 656,O:P0KE 657,32: 
? " “: RETURN 
Collision with walls. 

Stop shark’s movement. 

5300 POKE 1789,15 

Play coral collision music. 

5310 POKE 709, 80: FOR A=25 TO 60:S0UND 
0, A, 10, 8: NEXT A:PQKE 709,94:F0R A=42 T 
0 77 : SOUND 0,A, 10,8:NEXT A 
5320 POKE 709,80:F0R A=59 TO 92:SQUND 
0,A,10,8:NEXT A:P0KE 709,84:F0R A=0 TO 
15: NEXT A:S0UND 0,0, 0,0 

Erase shark and reset Its position to 
the central box. 

5330 POKE 1783, 64:F0R A=0 TO 100:NEXT 
A: POKE 1790, 124:P0KE 1791, 105:PQKE 178 
8,3 

Play more shark music. 

5340 SOUND 0, 50, 10, 8:F0R A=0 TO 30:NEX 
T A: SOUND 0,37, 10,8:FOR A=0 TO 30:NEXT 
A: SOUND 0,24, 10,8:FOR A=0 TO 30 
5345 NEXT A: SOUND 0,0, 0,0 
5350 FOR A=0 TO 100:NEXT A 
5360 FOR A=0 TO 2:S0UND 0,15,10,15:F0R 


B=0 TO 35:NEXT B:S0UND 0,0,0,0:FOR B= 
0 TO 85: NEXT B:NEXT A 
5370 RETURN 

SHARKEY ' 
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Collisions with dark green fish and 
seaweed. 

If the shark’s vertical position Is 
less than 160 (above the seaweed), 

It collides with a poisonous fish. 

5500 IF PEEK (1791) <160 THEN 60SUB 6000 

: RETURN 

5510 RETURN 

Shark death routine. 

Stop the shark’s motion and turn It 
upside down. 

6000 POKE 1789, 15:P0KE 1788,0 
Play the dead shark music. 

6010 SOUND 0,95, 10, 8: FOR A=0 TO 100:NE 
XT A: SOUND 0, 0, 0, 0; SOUND 0,47, 10,8:F0R 
A=0 TO 100:NEXT AsSGUND 0,0, 0,0 
6020 SOUND 0,50, 10,"B:FGR A=0 TO 150:NE 
XT A: SOUND 0, 0, 0, 0s SOUND 0, 53, 10, B: FOR 
A=0 TO 50: NEXT AsSOUND 0,0, 0,0 
6030 SOUND 0,50, 10,8: FOR A=0 TO 100:N£ 
XT A: SOUND 0,0, 0,0 
6040 FOR A=0 TO 200: NEXT A 
Move the shark to the top of the 
screen. 

6050 B=PEEK < 1791 > : FOR A=B TO 32 STEP - 
1 : SOUND 0,188-A, 10,2:P0KE 1791,A:NEXT 
A 

If any sharks remain, return to main 
routine. 

6060 SOUND 0, 0, 0, 0: SHARK=SHARK-1 
6070 IF SHARK)-! THEN T1=TINE;P0KE 656 
, 0: POKE 657,18:? SHARK: RETURN 
Set up a new game. 

6080 POKE 1788, 64: POP :F0R A=0 TO 250: 
NEXT A 

6090 POKE 656,0: POKE 657,23 
6100 ? “PUSH fire TO' 

6110 POKE 656,1: POKE 657,4:7 “START 0V 
ER” 

6120 IF STRI6 < 0) < >0 THEN 6120 
6130 SCREEN 1 I : SHARK=2 : SC0RE=0: ? CHRtll 
25): POKE 656, 1:P0KE 657,0:? ” one «oie 
nt please" 

6145 S0SUB 7000 
6150 60TO 20 

Preliminary game initialization. 

Call a machine language routine to 
zero out the Player RAM area. 

7000 FOR A=0 TO 3: C=USR < ADR <E$) , (PH+13 
V+A)t256):NEXT AiRETURN 
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Reserve 4.25K of RAM and set up 
the title display. 

9000 RESTORE sDIH Et(19):FQR X=1 TO 19 
: READ D:E$(X)=CHR$iD):NEXT X;PN=PEEK(1 
06)-17:P0KE 106,P«:60SUB 7000 
9005 DATA 104,104,133,213,104,133,212, 

169.0. 160.0. 145.212.200.192.255.208.24 
9,96 

9010 6RAPHICS 1 : DL I ST=PEEK ( 560 ) +PEEK < 5 
61)1256 

9020 POKE DLIST+10,7: POKE DL1ST+17,2:P 
0KE 710,1: POKE 752,1 
9030 POSITION 7,5:? l6;“ sharkey »:P0SIT 
ION 0,12:? #6;"Nritten and produced by 
-^POSITION 6,15:? *6;"DALE TH0HS* 

9040 ? CHR$ ( 125) ;CHRt( 127); “Please «ai 
t 17 seconds for":? CHR$(127);“initial 
nation." 

9050 RETURN 

POKE in the redefined character set 
using Alan J. Zett’s machine 
language routines. 

10000 START 1 (PEEK (1061+1 it 256 
10010 DIN XFRt (37) :F0R X=1 TO 37: READ 
D:XFR$<X) =CHR$ X D) : NEXT X 
10020 Z=USR (ADR (XFRt)) 

10030 READ X: IF X=-l THEN RETURN 
10040 FOR Y=0 TO 7: READ 2:P0KE X+Y+STA 
RT , 2: NEXT Y:SQT0 10030 
10050 DATA 104,169,0,133,203,133,205,1 
69,224. 133,206,165, 106,24,105,1,133,20 

4.0. 177.205.145. 203.200.208.249. 230 
10060 DATA 204,230,206,165,206,201,228 
,20B,237,96 

10100 DATA 512,0,0,0,0,0,0,0,0 

10101 DATA 576,255, 255,7, 14,28, 56, 1 12, 
224 

10102 DATA 592,255,255,224,112,56,28,1 

V 

10103 DATA 776,0,64,192,193,199,108,60 
,48 

10104 DATA 784,99,51,51,31,28,56,48,48 

10105 DATA 792, 7,206, 204, 1 10, 198, 198, 1 
03,99 

10106 DATA 800,27,155,179,182,182.230, 
119,119 

10107 DATA 808,24,50,179,227,97,97,59, 
27 
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10108 DATA 816,110, 108,204, 198,204,92, 
124,192 

10109 DATA 824,195,246,54,99,195,199,1 

10,110 

10110 DATA 832,153,141,205,206,198,102 
,102,60 

101 11 DATA 840,145,219,206,108,204,201 
,153,153 

10112 DATA 848,0,0,0,88,60,88,0,0 

10113 DATA 528,7,7,3,7,7,3,7,7 

10114 DATA 536,7,7,3,7,7,223,255,255 

10115 DATA 552,255,255,223,7,7,3,7,7 

10116 DATA 584,0,0,0,0,7,15,15,15 

10117 DATA 600, 15, 15, 15,7,0,0,0,0 

10118 DATA 608,240,240,240,224,0,0,0,0 

10119 DATA 616,255,255,219,0,0,0,0,0 

10120 DATA 624,0,0,0,0,0,219,255,255 

10121 DATA 632,0,0,0,0,224,240,240,240 

10122 DATA 648,255,255,251,224,224,192 
,224,224 

10123 DATA 688,224,224,192,224,224,192 
,224,224 

10124 DATA 720,224,224,192,224,224,251 
,255,255,-1 

POKE in the machine language 
PMBLANK routine. 

11000 POKE 559,62:P0KE 53277, 3-.P0KE 54 
279, PH+9 

11010 POKE 704,72:PQKE 53248,100 
11020 FOR A=0 TO 218:READ B:PQKE 1536+ 
A, BiNEXT A 

11100 DATA 173,251,6,201,0,240,20,173, 

250.6.201.0. 208.8.169.1 

11110 DATA 141,250,6,24,144,87,169,0,1 

41,250,6,173,253,6,201,14 

11120 DATA 240,84,201,7,240,86,201,13, 

240,93,201,11,240,95,201.6 

11130 DATA 240,102,201,5,240,112,201,9 

,240,122,201,10,240,53,160,8 

11140 DATA 173,252,6,133,203,173,255,6 

,201,188,208,6,206,255,6,173 

11150 DATA 255,6,133,205,169,0,145,205 

,136,177,203,145,205,192,0,208 

11160 DATA 247,198,205,169,0,145,205,1 

73.254.6.141.0. 208.76.98.228 

11170 DATA 24,144,203,24,144,76,206,25 
5,6,24, 144, 194,238,254,6, 169 
11180 DATA 8,141,252,6,24,144,183,238, 

I 255,6,24,144,177,206,254,6 


11190 DATA 169,24,141,252,6,24,144,166 

,206,255,6,238,254,6,169,32 

11200 DATA 141,252,6,24,144,152,238,25 

5,6,238,254,6, 169,40, 141,252 

11210 DATA 6,24,144,138,238,255,6,206, 

254,6,169,48,141,252,6,24 

11220 DATA 144,174,206,255,6,206,254,6 

,169,56, 141,252,6,24, 144, 160 

11230 DATA 162,6,160,0,169,7,32,92,228 

,104,96 

1 1240 SCREEN 1 1 : SHARK=2: SC0RE=0: RETURN 

Screen set-up routine. 

Print the game board and initialize 
some variables to the first level of 
difficulty values. 

12000 POSITION 0,0 

12005 REN IN LINES 12010-12180, LONER 
CASE REPRESENTS CTRL CODES, 
12010 ? #6;"q»*M9s«s(n*»aB8seiie l ‘; 

12020 ? 46;“vJ^_J 

12030 ? 46; "v io io inno io io b"; 

12040 ? 16; “vJkl Jkl JkeqlJkl Jkllb" ; 

12050 ? 16; "v _J JbvJ i_ b*; 

12060 ? 46; "v innno iczo innno b“; 

12070 ? 46; 'v kMilJkMlJkHil b*; 

12080 ? 46; "v J J J I H b”; 

12090 ? 46; "v innnnnnnnnnnno b"; 

12100 ? 46; "vi bqisae q#»»evjb"; 

12110 ? 46; " v Jbv J Jbvlb'; 

12120 ? 46;"v jbvjL J_ _J bvJ b"; 

12130 ? 46; bv£ 1 bv Jb"; 

12140 ? 46;*v bv 1 ibv b"; 

12150 ? 46;"yJ bvjW _J J bv _Jb"; 

12160 ? 46;"vJJbv J J bvJJb*; 

12170 ? 46; *v bv innnnnno bv b"; 

12180 ? 46;"v_Jkl kiiiMMil klv[ b"; 

12185 REN LINES 12190-12200 DO NOT 
CONTAIN CTRL CODES. TYPE 
LONER CASE AS NORHAL. 

12190 7 46;* CJe gJIeSg CeJqJEJi"; 

12200 ? 46; "aBftdJ-f AHdFf JBdaf aDfth*; 

12210 FISH=oTnAX=59:TIHE=100:CHX=150:S 
MX=31:EHX=83 

Increase the difficulty level based 
on the value of SCREEN. 

12220 IF SCREENS THEN 12990 
12230 POSITION 10,12:? 46; “^POSITION 
13,12:? 46; * J" : TIME=90: CMX=120 
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12240 POSITION 0,5:? #6;CHR*!26);CHR*( 
14) ;CHR< < 14) j : POSITION 17,5:? #6;CHR*( 
14);CHR*!14);CHR*(3); 

12245 POSITION 0,6:? #6;CHR*(17S;CHR*( 
13) ;CHR* ( 13) ; -POSITION 17,6:? #6;CHR$( 
13i;CHR*(13);CHR*(5); 

12250 IF SCREEN<3 THEN 12990 
12260 A=(PH+15)*256+154:P0KE A,4:P0KE 
A+l, 194-POKE A+2, 127-POKE A+3, 194-POKE 
A+4 , 4 : T I HE=80 

12270 POSITION 9,0:? I6;CHR*(5);CHR*(1 
7) j -POSITION 9,1:? «6;CHR* (2) ;CHR*!22) 

; -POSITION 9,2:? #6;CHR*(3!;CHR*(26); 
12280 IF SCREENS THEN 12990 
12290 TIHE=70:CHX=100:A= (PH+14) *256+18 
6: POKE A, 96-POKE A+l, 147-POKE A+2, 12 
12300 POSITION 0,10:? #6;CHRt!26);CHRl 
< 15> : POSITION 18,10:? #6; CHR4 <9) ; CHR$ < 
3) 

12302 POSITION 0,11:? #6;CHR*(17);CHR* 

( 12) -POSITION 18,11:? »6;CHR$ill);CHR* 
(5) 

12305 POSITION 2,13:? #6;CHR*(9) ;CHR*( 
3) : POSITION 16,13:? #6;CHR*(26);CHR*il 
5) 

12306 POSITION 2,14:? #6;CHR$(11);CHR* 
(5! -POSITION 16,14:? #6;CHRt(17) ;CHRt( 
12 ) 

12307 POSITION 0,16:? #6;CHR* 126) ;CHR$ 
415): POSITION 18,16:? »6;CHRt!9!;CHR*( 
3) 

12308 POSITION 0,17:? #6; CHR* ! 17) ;CHR* 
!12) -POSITION 18,17:? #6;CHR*tll);CHR$ 

45) 

12310 TIHE=60:CMX=70:P0S1TI0N 11,10:? 
#6;"J“:P0SITI0N 7,12:? I6;*J" 

12320 IF SCREENS THEN 12990 

12330 TIME=50: CttX=65: POKE (PH+9) *256+3 

1, 232-POKE 4PH+9) *256+45, 202: POKE (PH+ 

9) *256+78, 232: SHX=23:EHX=55 

Give the player three warning beeps 

before returning control of the 

shark. 

12990 FOR A=0 TO 2-SOUND 0, 15, 10, 15:F0 
R 8=0 TO 15: NEXT B-SOUND 0,0,0,0:F0R 8 
=0 TO 25: NEXT B-NEXT A: T 1=TIHE: RETURN 


Reset the shark’s position to the 
central box, increment the SCREEN 
variable, reset some variables, and 
call the screen set-up routine. 

13000 FOR A=0 TO 200: NEXT A:P0KE 1790, 
124-POKE 1791 , 105: POKE 1788,8 
1 3020 SCREEN=SCREEN+1 :FISH=0: T0=0: 60SU 
8 12000 

13030 C0L1=0: RETURN 

POKE spear and eel shapes Into 
PMG RAM. 

14000 RESTORE 14030 

14010 FOR A=0 TO 4 -READ B:P0KE (PH+15! 

*256+120+A,B:NEXT A 

14020 FOR A=0 TO 4-READ 8:P0KE (PH+16) 

*256+138+A,B:NEXT A 

14030 DATA 4,194,127,194,4,32,67,254,6 

7,32 

14040 A= (PH+1 4) *256+180: POKE A, 96: POKE 
A+l, 147-POKE A+2, 12 

Initialize the page six locations used 
by PMBLANK. 

14050 RETURN 

20000 POKE 1790, 124-POKE 1791,105 
20010 POKE 1789,0:P0KE 1788,8 
20020 POKE 1787, 1 -POKE 1786,0 
20030 POKE 2O6,PH+13:P0KE 205, 0:P0KE 2 
04,PH+5:POKE 203,0 
20040 A=0 

20050 FOR A=0 TO 63-READ B-P0KE (PH+5) 
»256+A,B:NEXT A 
20060 RETURN 

20070 DATA 121,254,121,24,12,0,0,0 
20080 DATA 48,24, 158,127, 158,0,0,0 
20090 DATA 0,0, 0,0, 0,0, 0,0 
20100 DATA 12,24,121,254,121,0,0,0 
20110 DATA 48,24,94,127,158,0,0,0 
20120 DATA 48,24, 158, 127,94,0,0,0 
20130 DATA 12,24,121,254,122,0,0,0 
20140 DATA 12,24,122,254,121,0,0,0 
Set up the colors for spears and 
eels, and POKE in the PMBLANK 
VBI routine. 

21000 POKE 705, 156-POKE 706, 56-POKE 70 
7,56 

21010 POKE 1646,0:P0KE 1647, PH+9 
21020 FOR A=0 TO 90-READ B-P0KE (PH+9) 
*256+A,B:NEXT A 
21030 RETURN 

21040 DATA 173,249,6,201,0,208,19,141, 
2,208,141,3,208,169,77,141 



f 21050 DATA 247,6,169,171,141,248,6,24, 
144,29,174,247,6,232,232,234 
21060 DATA 232,142,247,6,142,2,208,174 
,248,6,202,202,202,234,142,248 
21070 DATA 6,142,3,208,206,249,6,173,2 
45,6,201,0,208,11,141,1 
21080 DATA 208,169,42,141,246,6,24,144 
,15,174,246,6,232,232,234,142 
21090 DATA 246,6,142,1,208,206,245,6,7 
• 6,98,228 

Set up the score board area. 

Change the text window to 
GRAPHICS 1 mode and create a 
Display List Interrupt to display up- 
percase text instead of graphics 
symbols. 

23000 DL I ST=PEEK (560) +2564PEEK (561) 
23010 POKE DLIST+24, 134: PDKE DUST+25, 
70 

23020 POKE DLIST+28,6:P0KE DLlST+29,6: 
POKE DUST+30,6 


23040 DATA 72, 138, 72, 174, 24', 2, 202, 202^ 
,141,10,212,142,9,212, 104,170, 104,64 
23050 POKE 512, 0: POKE 513,PM+10 
23060 POKE 54286,192 

Print headings in the text box. 

23070 ? CHfit (125) 

23080 POKE 656,0: POKE 657,0:? ■score': 
POKE 656,0: POKE 657,27:? "tine"; PDKE 6 
56,0:POKE 657,18:? SHARK 
23090 RETURN 

Initialize the rest of the colors, and 
switch the character set pointer 
from the old ROM set to the redefined 
RAM set. 

24000 POKE 70S, 182: POKE 709,84:P0KE 71 
0 , 1 10: POKE 711,214: POKE 712,160:PQKE 6 
23,8 

24010 POKE DL IST+10, 6: POKE DLlST+17,6: 

? #6; CHR$ < 125) :PQKE 756, START/256+2 
24020 RETURN 

Initialize the PMBLANK VBI routine. 


23030 FOR A-0 TO 17:READ B:P0KE IPM+10 


25000 C=USR ( 1744 ) : RETURN 


) >256+A, B: NEXT A STOMP 

^imv TABLE 







Modified Parameters: 

ine count = 5, byte count = 300) 

STOMP 

LINES CODE LENGTH 

For ATARI® SHARKEY 

qtamd 

LINES CODE LENGTH 

10 - 

100 

Cl 

145 

11020 - 

11130 

GQ 

287 

110 - 

150 

NA 

119 

11140 - 

11180 

VL 

320 

160 - 

200 

cx 

140 

11190 - 

11230 

NR 

295 

210 - 

5010 

PA 

207 

11240 - 

12030 

XI 

148 

5020 - 

5110 

DR 

166 

12040 - 

12080 

KY 

160 

5120 - 

5160 

EU 

203 

12090 - 

12130 

JE 

160 

5170 - 

5210 

PJ 

320 

12140 - 

12180 

IR 

160 

5220 - 

5330 

SK 

343 

12190 - 

12230 

UR 

201 

5340 - 

5370 

TT 

228 

12240 - 

12270 

SX 

398 

5500 - 

6020 

HQ 

265 

12280 - 

12305 

DH 

314 

6030 - 

6070 

JB 

228 

12306 - 

12320 

NL 

307 

6080 - 

6120 

HS 

142 

12330 - 

13030 

CC 

317 

6130 - 

9000 

JO 

254 

14000 - 

14040 

SK 

211 

9005 - 

9040 

CH 

359 

14050 - 

20030 

zc 

144 

9050 - 

10030 

IT 

141 

20040 - 

20080 

ET 

129 

10040 - 

10101 

YD 

275 

20090 - 

20130 

MG 

150 

10102 - 

10106 

UP 

198 

20140 - 

21030 

n 

156 

10107 - 

10111 

EU 

210 

21040 - 

21080 

ZB 

316 

10112 - 

10116 

YK 

158 

21090 - 

23030 

HN 

211 

10117 - 

10121 

KX 

171 

23040 - 

23080 

RR 

223 

10122 - 

11010 

LI 

206 

23090 - 

25000 

NB 

186 


SHARKEY 
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dAEK 

RIPPE^II 


Issue 45 Adventure: 
Jack The Ripper II 

Did the evil Ripper 
ever really die? You 
are an inspector at 
Scotland yard. Can you 
stop the Ripper before 
he strikes again? 


SoftSide Adventure Series -^CV 


What would you say to a program that asks, “What do you want to do?” 
Well, you might say, “GET APPLE” or “KILL SPIDER”, because that’s 
how the SoftSide Adventure Series works. 

Each issue, the latest Adventure takes you to another world of fantasy, 
puzzles and thrills. Your first task — survival — can be daunting until you 



figure out the right way to do it. Each adventure sets a fundamental goal 
before you. You might have to rescue a princess, or depose a wicked ruler. 
Along the way, dozens of subsidiary tasks beset you. You’ll have to be in- 
genious and persevering, and your rewards will be great. 

To “win” a fantasy/adventure game, you must solve the author’s devious 
puzzles, and overcome the obstacles that confront you — whether they be 
dragons or desperadoes. Death, should it come, is transitory — just re-run the 
program to live again! 

Express your wishes with one- or two-word commands, like “LOOK”, 
“NE” (for northeast), or “GET FROG”. Use “I” to get an inventory of your 
possessions. The introduction to each Adventure explains this more fully. 

Winning an Adventure is hard enough without the additional requirement 
that you do it all at once. In recognition of this, the Disk Version of the Soft- 
Side Adventure Series now features two new commands: “SAVE GAME” and 
“LOAD GAME”. 

To start up the Adventure, just run the program called “INTRO”, 
“INTRO/BAS”, or “INTRO. BAS” on your disk, or select the Adventure 
from the DV menu. On cassette, the INTRO program is the one just before the 
Adventure. 

The Adventure runs in any Atari® with at least 32K RAM (40K disk). 


Here are the encrypted hints for Mad House, 
the Adventure in Issue 44. 

Silver dollar: WL MLG KFG RM EVMWRMT NZXSRMV FMGRO TREVM 
GL TVLITV DZHSRMTGLM LI UORKKVW YB OFXPB XSFXPB. 

Top hat: WL MLG TREV GL NZTRXRZM FMGRO GIRXPB WRXPB 
SZH YVVM WVZOG DRGS. 

Tricky Dicky: WIVHH FK ORPV ZYV ORMXLOM. 

Shakespeare: TREV SRN Z ULFI-OVZU XOLEVI. 

Bunny: ORPVH XOLEVI. 

To get into the garden: HLFMW XZM YIVZP TOZHH. 

To pass a day: HOVVK LM BLFI YFMP. 

To escape: 

A. VMGVI OZFMWIB ILLN LM KRXP FK WZB. 

B. SZEV Z ORG UOZHSORTSG. 

C. SRWV RM OZFMWIB YZT. 

D. OLLP OZFMWIB; GSVM TVG ZMW DVZI GSV FMRULIN. 

E. OVZEV YZT ZUGVI GIFXP HGLKH. 

F. VCRG WLLI. 






Tired of Typing? 


• Use And Enjoy These Programs Right 
Away! 

• Avoid Worry About Typos! 

• Get Additional Programs to Enjoy 
Without Typing. 




Order this Issue’s Programs on Disk or Cassette! 


Send the coupon below to: 

SoftSide Publications, Inc. 

10 Northern Blvd. 
North wood Executive Park 
Amherst, NH 03031 
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ORDER THIS ISSUE'S MEDIA 

Having difficulty finding the time to input the programs 
from this issue of SoftSide Selections? Don't despair — the 
cassette and disk versions are still available! And, each DV 
(disk version) contains an additional program 

□ #45 DV $16.00 □ #45 CV $8.00 

Disk Only: □ Apple® □ I BM® PC 

Disk or Cassette: □ Atari® □ TRS-80® Mod. I □ TRS-80® Mod. Ill 

Name 


Address 


City/State 


□ Check or Money Order 

□ MasterCard □ VISA 

Name of Cardholder 


MC#/VISA# 



Exp. Date / / Signature. 


A_5at5He_ 


.Selection* 



Prices subject to change without notice. Apple®, IBM®, Atari® and TRS-80® are registered trademarks of Apple Computer, Inc., 
International Business Machines, Inc., Warner Communications, and Tandy Corporation respectively. 
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General Information 

These are the standard procedures for the programs published by 
SoftSide Publications, Inc. Sometimes, a particular program does not 
lend itself to these procedures. Always read the specific instructions 
accompanying a program. They will instruct you if there are any 
variances from the following procedures. Also, back issues of Soft- 
Side Magazine may differ in some details. 


#5? f *1 STOMP jgm, 

TABLE 

STOMP Tables 





At the conclusion of each SoftSide listing, we include a STOMP 
Table. STOMP for the Apple, Atari, IBM PC and TRS-80 appeared in 
Issue #45. STOMP supersedes SWAT as SoftSIde’s standard debug- 
ging tool to help those who type BASIC programs from the pages of 
SoftSide Selections. If you don’t have STOMP, we’ll send you a free 
reprint. Send a business-sized, self-addressed, stamped envelope to: 


SoftSide Publications, Inc. 

Department STOMP • 

10 Northern Blvd. 

Northwood Executive Park 
Amherst, NH 03031 

Be sure to tell us that you have an Atari computer. 


Magnetic Media 

Disks do not carry the DOS.SYS and DUP.SYS files, and are not 
“bootable.” In order to use your SoftSide DV, put a disk with DOS on 
it, such as a copy of your DOS 2 master disk, into your disk drive, and 
start up your Atari. The BASIC cartridge must be inserted before you 
do this. When you see the word READY, insert the SoftSide Selections 
disk, and type this command: 

RUN “D:COVER” 

A menu program will then run. 

Our disks are in DOS 2.0S format. They should not be used with 
DOS 1. 

Tapes CLOAD In the normal manner. If you encounter difficulty, try 
this procedure: 

• 1. POKE 54018,54 

• 2. Turn up the volume on your TV. 

• 3. Type CLOAD, and press RETURN once. 

• 4. Press the play button, and listen. 

• 5. When you hear the steady leader tone, press RETURN 

Side two of the tape is a duplicate of side one. 

SoftSide Selections disks and tapes are duplicated on reliable, pro- 
fessional equipment. Bad copies are exceedingly rare. Nevertheless, 
the trip through the mail occasionally results in damage to the sen- 
ysitive magnetic media. If, after a reasonable number of attempts on^ 
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well-adjusted, clean equipment, you are unable to load a program, 
return It to us along with a precise explanation of your problem. We 
shall send you a replacement. 

SoftSIde Selections media are not copy-protected. We urge you to 
make an archival backup of your disk or tape as soon as you receive it, 
as our replacement policy is valid for only 30 days. Please resist the 
urge to give away copies of copyrighted material. 


Line Listings 

The line listings in this booklet are in standard 38-column format, 
with special conventions for representing unprintable characters: 

• You must type underlined characters, including blank spaces, in in- 
verse video. 

• When graphics or control characters are included in a string (be- 
tween quotation marks), a nearby REM statement will make note of it; 
in such cases, graphics characters appear as the corresponding 
lower-case letters, and control characters appear as the correspond- 
ing unshifted key symbols. For example: The lower-case letter s 
represents a graphic cross, which you type by pressing the S key while 
holding down the CTRL key; the = sign represents CTRL-down-arrow, 
which you type by pressing and releasing the ESC key, then pressing 
the = key while holding down CTRL. For more information about 
entering control characters, refer to Appendix F and the back cover of 
your Atari Reference Manual. 

There are two exceptions to our above convention: A clear-screen 
character (ESC SHIFT-CLEAR) appears in our listings as a right-hand 
brace, which looks like this: } . The other exception is that a shifted 
= sign appears as a broken, vertical line: 

Occasionally, a program will demand that we vary from these con- 
ventions. In such a case, a nearby REM statement or the program’s in- 
troductory article will clearly note the special instructions. 


System Requirements 

The necessary memory and other equipment you need to run a pro- 
gram are listed in the introductory paragraph of the article for each 
program. Also see the SoftSIde Adventure Series elsewhere In this 
booklet. 


Copyright © 1983 SoftSIde Publications, Inc. 

These programs are for your personal use only. Please resist the 
urge to give away copies of copyrighted material. 
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The Best of SoftSide 

□ YES..-. I want to enjoy the best programs — Games, Utilities, 

Adventures — from SoftSide Magazine's past Please rush my 
copies of The Best of SoftSide to 

Name 

Address 

.Zip 

□ I've already ordered The Best of SoftSide 
book. I'm enclosing $35 for the disks only. 
I'm paying by: 

□ Check # 

□ Money Order # 

□ VISA 

□ MasterCard 

Total Enclosed $ 

(Foreign order please include $5 postage 
PAY IN USA FUNDS ONLY.) 

VISA/ MasterCard # Exp. Date 

Name of Cardholder 


City State 

Here's my order For The Best of SoftSide 


Computer 

Quantity 
Book Only 
*14.95 ea. 

Quantity 

Book plus Disk 
$49.95 ea. 

Apple® 



Atari® 



TRS-80® 



TOTAL COPIES 

@$14.95 

@$49.95 



Signature 


Like SoftSide? Wait ’til you’ve seen our BEST! 


The 
of SoftSide! 


For the past four years, SoftSide Magazine has been bringing Apple®, Atari®, and 
TRS-80® owners the best in BASIC software. But now you can do even better.. .The 
Best of SoftSide. From all our back issues, we’ve selected the most useful... the most 
entertaining... the most fun programs SoftSide has ever published. 

The Best of SoftSide is available in three versions... one for Apple, Atari, and 
TRS-80. Each contains page after page of BASIC code for adventures, simulations 
practical applications, and much more. 


To order your copy of The Best of SoftSide, fill out the coupon, and mail it along 
with $14.95 to SoftSide, 10 Northern Blvd., Northwood Executive Park, Amherst, 
New Hampshire 03031. 
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Here’s SoftSide Selections, the handy, pull-out 
booklet with program listings for your Atari 
400/800/1200 computer. This issue, SoftSide 
Selections for the Atari features: 


• Draw 7+ — This program lets you draw 
screens in graphics mode 7. A “blow-up” feature 
helps you draw details with ease. 


• Sharkey — Gobble up fish in this undersea 
arcade-style game, but watch out for the electric 
eels! 

• Atari DV Bonus Program: Pix 

Manipulate pre-drawn or original figures from a 
library — arrange them, change their colors and 
enlarge them — to create more intricate designs 
with this application of Peter J. Favaro’s Nested 
Interpreter (Issue #43). 

• The SoftSide Adventure Series — 

Jack The Ripper II, by Peter Kirsch 

Your grandfather chased the evil Ripper to a 
watery death in the River Thames, or so he thought. 
Now it seems that the Ripper lives again... 


SOFTSIDE PUBLICATIONS, INC. 
Amherst, New Hampshire 


